home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Tools 2
/
Amiga Tools 2.iso
/
dfue
/
avmnfax
/
source
/
playtime.avmsrc
< prev
next >
Wrap
Text File
|
1995-03-09
|
2KB
|
96 lines
startrecord=true
label=playtime
nodetype=8
line1=procedure
line2=parse arg secs
line3=hours = secs % (60*60)
line4=minutes = (secs - (hours * 60 * 60)) % 60
line5=if hours < 12 then pm = 0
line6=else do; pm = 1; hours = hours - 12; end
line7=if hours = 0 then hours = 12
line8=
line9=timeformat = getclip('AVMTimeFormat')
line10=if timeformat = "" then timeformat = '%hours12 %minutes %pm'
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=8
line1=do i = 1 to words(timeformat)
line2= if upper(word(timeformat, i)) = '%HOURS12' then
line3= call playddnumber(hours)
line4= else if upper(word(timeformat, i)) = '%HOURS24' then
line5= call playddnumber(hours + (pm * 12))
line6= else if upper(word(timeformat, i)) = '%MINUTES' then
line7= call playddnumber(minutes)
line8= else if upper(word(timeformat, i)) = '%PM' then
line9= do
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=8
line1= if pm then call playnumbranch('playtimepm')
line2= else call playnumbranch('playtimeam')
line3= end
line4= else
line5= call playddvoice(word(timeformat, i))
line6=end
line7=
line8=
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=14
comment=We're done
nextactiontype=2
nextactionaction=return
endrecord=true
startrecord=true
label=playtimeam
nodetype=1
filename='avm:voices/timeam'
comment=A.M.
keyactiontype=3
keyactionaction=
faxactiontype=0
faxactionaction=stdfax
dataactiontype=0
dataactionaction=stddata
busyactiontype=0
busyactionaction=stdbusy
abortactiontype=0
abortactionaction=stdabort
erroractiontype=0
erroractionaction=stderror
nextactiontype=2
nextactionaction=return
endrecord=true
startrecord=true
label=playtimepm
nodetype=1
filename='avm:voices/timepm'
comment=P.M.
keyactiontype=3
keyactionaction=
faxactiontype=0
faxactionaction=stdfax
dataactiontype=0
dataactionaction=stddata
busyactiontype=0
busyactionaction=stdbusy
abortactiontype=0
abortactionaction=stdabort
erroractiontype=0
erroractionaction=stderror
nextactiontype=2
nextactionaction=return
endrecord=true